home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / calcdur.cl < prev    next >
Encoding:
Text File  |  1993-01-24  |  178 b   |  10 lines
  1. program calcdur;
  2.  
  3. var
  4.     b ,pi     : real;
  5.  
  6. begin
  7.             pi := 3.141592;
  8.             b := 5*cos(8-2)*pi/0.5-sin(7/cos(2.025/6.3333-8/17)*0.79);
  9.             writeln(b);
  10. end.